home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / stddef.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  319 b   |  15 lines
  1. if (!defined &_STDDEF) {
  2.     eval 'sub _STDDEF {1;}';
  3.     if (!defined &_SIZE_T) {
  4.     eval 'sub _SIZE_T {1;}';
  5.     }
  6.     if (!defined &NULL) {
  7.     eval 'sub NULL {0;}';
  8.     }
  9.     eval 'sub offsetof {
  10.         local($structtype, $field) = @_;
  11.         eval "(( &size_t)(\'char\' *)&((($structtype *)0)->$field))";
  12.     }';
  13. }
  14. 1;
  15.